home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / music / oscbas.arj / MAKE.BAS < prev    next >
BASIC Source File  |  1994-05-10  |  550b  |  29 lines
  1. 'makedata
  2.  
  3. OPEN "osc.dat" FOR OUTPUT AS #1
  4. PRINT #1, SPACE$(5000)
  5.  
  6. OPEN "mandel1.dat" FOR BINARY AS #2
  7.     x$ = INPUT$(7, #2)
  8.     FOR r = 1 TO 4
  9.         x$ = INPUT$(16000, #2)
  10.         PRINT #1, x$;
  11.     NEXT
  12. CLOSE #2
  13. OPEN "mandel2.dat" FOR BINARY AS #2
  14.     x$ = INPUT$(7, #2)
  15.     FOR r = 1 TO 4
  16.         x$ = INPUT$(16000, #2)
  17.         PRINT #1, x$;
  18.     NEXT
  19. CLOSE #2
  20. OPEN "plas1.dat" FOR BINARY AS #2
  21.     x$ = INPUT$(7, #2)
  22.     FOR r = 1 TO 4
  23.         x$ = INPUT$(16000, #2)
  24.         PRINT #1, x$;
  25.     NEXT
  26. CLOSE #2
  27. CLOSE #1
  28.  
  29.